home *** CD-ROM | disk | FTP | other *** search
/ Tabloid Beauties (Italian) / Saranno famos.iso / DATA / KARENK.DIR / 00100_Script_100 < prev    next >
Text File  |  1995-03-07  |  539b  |  20 lines
  1. on exitFrame
  2.   put random(100) into x
  3.   if x < 80 then
  4.     put the pathname into temp
  5.     if the machinetype <> 256 then
  6.       put Temp & "SOUNDS:003.mov" into Fname
  7.     else
  8.       put Temp & "SOUNDS\003.mov" into Fname
  9.     end if
  10.     set the filename of cast "QT.MOV" to FName
  11.   else
  12.     put the pathname into temp
  13.     if the machinetype <> 256 then
  14.       put Temp & "SOUNDS:004.mov" into Fname
  15.     else
  16.       put Temp & "SOUNDS\004.mov" into Fname
  17.     end if
  18.     set the filename of cast "QT.MOV" to FName
  19.   end if
  20. end